home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_1 / pubdom.tar / pubdom / rbj / lll < prev    next >
Text File  |  1990-05-17  |  2KB  |  72 lines
  1. %%HP: T(3)A(D)F(.);
  2. @  LLL --  From BBS
  3. @ (Comp.sys.handhelds) Main: r 227
  4. @ Item: 227 by rsteele at XN.LL.MIT.EDU
  5. @ Author: [Rob Steele]
  6. @   Subj: HP-48 Movie
  7. @   Date: Fri Mar 16 1990 07:52 
  8. @
  9. @ The following code plots a series of lissajous and animates them.
  10. @ It is possible to see the resulting figure in about eleventy-
  11. @ two different ways: cylindrical or flat, rotating or oscillating
  12. @ about a horizontal or vertical axis, moving toward you or
  13. @ away, moving to the left or to the right, or just wobbling.
  14. @
  15. @ I call the program LLL for Lincoln Lab Lissajous since the lissajous
  16. @ is our logo.  To work it, download or enter it and press the GEN
  17. @ button.  It will run for a few minutes and beep when it's through.
  18. @ Then press the SHO button and watch.  Finally, press any key to quit.
  19. @ 
  20. @ If you have trouble seeing the image in different ways, try focusing
  21. @ on a single intersection in the plot as it moves.  Pretend that the
  22. @ point is in front as it moves in one direction and in back when it
  23. @ goes the opposite way.  Once you get that to work, reverse directions.
  24. @
  25. @ Rob Steele
  26. @ rsteele@xn.ll.mit.edu
  27. @
  28. DIR
  29.     GEN \<<
  30.         @ Generates a list of graphic objects and 
  31.         @    stores them in IMAGES.
  32.         RCLF DEG
  33.         0 'IMAGES' STO
  34.         30 90 FOR i
  35.             i 'Z' STO
  36.             ERASE DRAW PICT RCL
  37.         10 STEP
  38.         7 \->LIST 'IMAGES' STO
  39.         STOF
  40.         1250 1 BEEP
  41.     \>>
  42.  
  43.     SHO \<<
  44.         @ Displays the graphic objects in IMAGES 
  45.         @ in rapid  succession.
  46.         IMAGES SIZE \-> n
  47.         \<<
  48.             ERASE { # 0h # 0h } PVIEW
  49.             MEM DROP
  50.             WHILE KEY NOT REPEAT
  51.                 1 n 1 - FOR i
  52.                     PICT {  # 0h # 0h } 'IMAGES' i GET REPL
  53.                 NEXT
  54.                 n 2 FOR i
  55.                     PICT {  # 0h # 0h } 'IMAGES' i GET REPL
  56.                 -1 STEP
  57.             END
  58.             DROP
  59.         \>>
  60.     \>>
  61.  
  62.     @ Definition of the lissajous.  
  63.     @ Set Z to zero to produce the Lincoln logo.
  64.  
  65.     EQ 'SIN(4*x+Z)+COS(3*x)*i'
  66.     Z 0
  67.     PPAR { (-3,-1) (3,1) { x 0 360 } 0 (10,10) PARAMETRIC Y }
  68.     IMAGES 0
  69.  
  70. END
  71.  
  72.